Sub tihuan() Dim rCell As Range For Each rCell In Selection If rCell.Value = "差旅费" Then rCell.Value = "Fee_0" If rCell.Value = "业务招待费" Then rCell.Value = "Fee_1" If rCell.Value = "公务车费用" Then rCell.Value = "Fee_2" If rCell.Value = "办公费" Then rCell.Value = "Fee_3" If rCell.Value = "因公临时出国（境）" Then rCell.Value = "Fee_4" If rCell.Value = "培训费" Then rCell.Value = "Fee_5" If rCell.Value = "工会经费" Then rCell.Value = "Fee_6" If rCell.Value = "通讯费" Then rCell.Value = "Fee_7" If rCell.Value = "会议费" Then rCell.Value = "Fee_8" If rCell.Value = "团队建设费" Then rCell.Value = "Fee_9" Next End Sub
